function  answer = serieSn(n)
   
      answer = 0;
      while (n > 0)
      	answer = answer + 1/n;
	--n;
      endwhile
	      
endfunction

% La version recursiva de la serie da un error en tiempo de ejecucion si el error en la funcion llamadora es muy bajo(0.001)
% Esto provoca el error: "max_recursion_depth exceeded". Debido a que la version recursiva realiza demasiadas recursiones
% provocando un stack overflow.

%function  answer = serieSn(n)

%      if(n == 1)
%	   answer = 1;
%      else
%	   answer =  1/n + serieSn(n-1);
%      endif

%endfunction